﻿Imports System.Data.SqlClient

Public Class frmCuentasContpaq

    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
        Close()

    End Sub
    Sub CargaCuentas()

        dgCuentas.Rows.Clear()

        Dim cnconn As New SqlConnection
        Dim strSql As String
        Dim cmdBuscar As New SqlCommand
        Dim rdBuscar As SqlDataReader

        cnconn.ConnectionString = CitraConnection
        strSql = "Select * FROM CuentasContables ORDER BY Empresa,Codigo"

        cmdBuscar.Connection = cnconn
        cmdBuscar.CommandText = strSql

        cnconn.Open()
        rdBuscar = cmdBuscar.ExecuteReader

        Do While rdBuscar.Read()
            dgCuentas.Rows.Add(rdBuscar("IdContable"), rdBuscar("Empresa").ToString.Trim, rdBuscar("Codigo").ToString.Trim, rdBuscar("Nombre").ToString.Trim, rdBuscar("cInforme"), rdBuscar("cimpuestos"), rdBuscar("cimpuestos1"), rdBuscar("cimpuestos2"))
        Loop
    End Sub

    Private Sub frmCuentasContpaq_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ToolStrip1.Cursor = Cursors.Hand
        ToolStrip1.RenderMode = System.Windows.Forms.ToolStripRenderMode.System

        CargaCuentas()



    End Sub
    Private Sub FinDeEdicion(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles dgCuentas.CellEndEdit
        'Añadir aqui las validaciones necesarias
        Try
            If dgCuentas.CurrentCell.ColumnIndex = 4 Then
                Call SetSqlCitra("UPDATE CuentasContables SET cInforme=" & dgCuentas.CurrentRow.Cells(4).Value & " WHERE IdContable=" & dgCuentas.CurrentRow.Cells(0).Value)
            End If
            If dgCuentas.CurrentCell.ColumnIndex = 5 Then
                Call SetSqlCitra("UPDATE CuentasContables SET cImpuestos=" & dgCuentas.CurrentRow.Cells(5).Value & " WHERE IdContable=" & dgCuentas.CurrentRow.Cells(0).Value)
            End If
            If dgCuentas.CurrentCell.ColumnIndex = 6 Then
                Call SetSqlCitra("UPDATE CuentasContables SET cImpuestos1=" & dgCuentas.CurrentRow.Cells(6).Value & " WHERE IdContable=" & dgCuentas.CurrentRow.Cells(0).Value)
            End If
            If dgCuentas.CurrentCell.ColumnIndex = 7 Then
                Call SetSqlCitra("UPDATE CuentasContables SET cImpuestos2==" & dgCuentas.CurrentRow.Cells(7).Value & " WHERE IdContable=" & dgCuentas.CurrentRow.Cells(0).Value)
            End If

        Catch ex As Exception
            '.... Accion en caso de excepcion
        End Try
    End Sub
End Class